home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_200 / 241_01 / animals < prev    next >
Text File  |  1987-08-29  |  4KB  |  128 lines
  1. /*
  2. HEADER:         CUG241;
  3. TITLE:          Classical expert system demonstration of Animal 
  4.                 Identification;
  5. DATE:           12/30/85;
  6. VERSION:
  7. DESCRIPTION:   "Source code for a simple Expert System.";
  8. KEYWORDS:       Artificial Intelligence, expert systems, Animal database;
  9. SYSTEM:         MS-DOS or UNIX System V;
  10. FILENAME:       ANIMALS;
  11. WARNINGS:      "User-supported, author requests non-commercial use,"
  12.                "This header should be deleted from the file before use";
  13. AUTHORS:        George Hageman - Softman Enterprizes; 
  14. COMPILERS:      Microsoft C V3.00 or UNIX System V Portable C Compiler;
  15. REFERENCES:     AUTHOR:   Clocksin, William F. and Mellish, Christopher S.;
  16.                 TITLE:    "Programming in Prolog";
  17.  
  18.                 AUTHOR:   Derick, Mitch and Derick, Linda;
  19.                 TITLE:    "MVP-FORTH Expert-2 Tutorial";
  20.  
  21.                 AUTHOR:   Park, Jack;
  22.                 TITLE:    "Expert Systems & the Weather - Dr. Dobb's Journal";
  23.                 CITATION:  "April 1984, pp. 24-28."
  24.  
  25.                 AUTHOR:   Park, Jack;
  26.                 TITLE:    "MVP-FORTH Expert System Toolkit";
  27.  
  28.                 AUTHOR:   Ting, C. H.;
  29.                 TITLE:    "Inside F83";
  30.  
  31.                 AUTHOR:   Winston, Klaus, and Horn;
  32.                 TITLE:    "LISP";
  33. ENDREF
  34. */
  35.  
  36. ! THIS IS THE KNOWLEDGE BASE FOR THE
  37. ! ANIMAL CLASIFICATION EXPERT   
  38. !
  39. IF ANIMAL HAS FEATHERS
  40. ANDIF ANIMAL LAYS EGGS
  41. THEN ANIMAL IS BIRD   
  42. !
  43. IFNOT ANIMAL IS BIRD  
  44. THEN ANIMAL IS MAMMAL 
  45. !
  46. IF ANIMAL IS MAMMAL
  47. AND ANIMAL EATS MEAT  
  48. THEN ANIMAL IS CARNIVORE    
  49. !
  50. IF ANIMAL IS CARNIVORE        
  51. AND ANIMAL HAS POINTED TEETH   
  52. AND ANIMAL HAS RETRACTABLE CLAWS  
  53. AND ANIMAL HAS FORWARD POINTING EYES    
  54. THEN ANIMAL IS CAT        
  55. ! 
  56. IF ANIMAL IS MAMMAL   
  57. ANDNOT ANIMAL IS CARNIVORE
  58. AND ANIMAL HAS HOOFS  
  59. THEN ANIMAL IS UNGULATE        
  60. ! 
  61. IF ANIMAL IS CAT  
  62. AND ANIMAL HAS TAWNY COLOR     
  63. AND ANIMAL HAS DARK SPOTS      
  64. THENHYP ANIMAL IS CHEETA       
  65. !
  66. IF ANIMAL IS CAT   
  67. AND ANIMAL HAS TAWNY COLOR     
  68. AND ANIMAL HAS BLACK STRIPES   
  69. THENHYP ANIMAL IS TIGER        
  70. !
  71. IF ANIMAL IS CAT
  72. AND ANIMAL IS SMALL
  73. AND ANIMAL IS DOMESTICATED
  74. AND ANIMAL MOSTLY CATCHES MICE
  75. AND ANIMAL LOVES WARM LAPS
  76. THENHYP ANIMAL IS A HOUSE CAT
  77. ! 
  78. IF ANIMAL IS UNGULATE 
  79. AND ANIMAL HAS LONG NECK       
  80. AND ANIMAL HAS LONG LEGS       
  81. AND ANIMAL HAS DARK SPOTS      
  82. THENHYP ANIMAL IS GARAFFE      
  83. !
  84. IF ANIMAL IS BIRD     
  85. ANDNOT ANIMAL FLIES   
  86. ANDNOT ANIMAL SWIMS   
  87. AND ANIMAL HAS LONG NECK       
  88. AND ANIMAL IS BLACK AND WHITE  
  89. THENHYP ANIMAL IS OSTRICH      
  90. !
  91. IF ANIMAL IS UNGULATE 
  92. AND ANIMAL HAS BLACK STRIPES   
  93. THENHYP ANIMAL IS ZEBRA        
  94. !
  95. IF ANIMAL IS BIRD     
  96. ANDNOT ANIMAL FLIES   
  97. AND ANIMAL SWIMS      
  98. AND ANIMAL IS BLACK AND WHITE  
  99. THENHYP ANIMAL IS PENGUIN      
  100. !
  101. IF ANIMAL IS BIRD     
  102. AND ANIMAL FLIES      
  103. AND ANIMAL FLIES WELL 
  104. AND ANIMAL HAS WEBBED FEET
  105. ANDNOT ANIMAL HAS FLAT BILL
  106. THENHYP ANIMAL IS ALBATROS     
  107. ! 
  108. IF ANIMAL IS BIRD   
  109. AND ANIMAL FLIES    
  110. AND ANIMAL FLIES WELL        
  111. AND ANIMAL HAS WEBBED FEET   
  112. AND ANIMAL HAS FLAT BILL 
  113. THENHYP ANIMAL IS DUCK
  114. !
  115. !
  116. !
  117. IFNOT ANIMAL IS CHEETA       
  118. IFNOT ANIMAL IS TIGER        
  119. IFNOT ANIMAL IS A HOUSE CAT
  120. IFNOT ANIMAL IS GARAFFE      
  121. IFNOT ANIMAL IS OSTRICH      
  122. IFNOT ANIMAL IS ZEBRA        
  123. IFNOT ANIMAL IS PENGUIN      
  124. IFNOT ANIMAL IS ALBATROS     
  125. IFNOT ANIMAL IS DUCK
  126. THENHYP THIS ANIMAL IS NOT WITHIN MY KNOWLEDGE
  127.  
  128.